
Partial Class Controls_UploadFile
    Inherits System.Web.UI.UserControl
    Protected Sub Upload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Upload.Click
        If ImageUploader.HasFile Then
            Dim UploadDir As String
            UploadDir = Server.MapPath("~/ProfileImages")
            ImageUploader.SaveAs(IO.Path.Combine(UploadDir, ImageUploader.FileName))
        End If
    End Sub
End Class
